home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / editor / fwrap311.lha / FinalWrapper3_11 / FW_Macros / FW_Tutorial.rexx < prev   
OS/2 REXX Batch file  |  1995-10-17  |  13KB  |  150 lines

  1. /* FW_Tutorial.rexx 1.02 (02.08.95) by NDY's
  2.  
  3. Interactive tutorial. */
  4.  
  5.  
  6. /* Initialisation (this one or a similar code should be used by all FW macros)
  7.    The first IF statement could also be replaced by a simple:
  8.      IF ~Show("P",rxport) THEN EXIT 10
  9.    With this, the macro will only work if FinalWrapper is already started */
  10.  
  11. /* BEGIN init */
  12. OPTIONS RESULTS
  13. rxport="FinalWrapperPort"
  14. IF ~Show("P",rxport) THEN /* Port not found? */
  15.   DO
  16.     /* Read FinalWrapper's default macro path */
  17.     IF Open("path","ENV:FinalWrapper/FWPath","R") THEN
  18.       DO
  19.         path=ReadLn("path")
  20.         CALL Close("path")
  21.       END
  22.     ELSE
  23.       path=""
  24.     /* Run FinalWrapper */
  25.     ADDRESS COMMAND "Run >NIL: Rx" path||"FinalWrapper.rexx"
  26.     /* Wait for port to be created */
  27.     DO i=1 TO 10 WHILE ~Show("P",rxport)
  28.       ADDRESS COMMAND "Wait 3 SECS" /* Wait a moment */
  29.     END
  30.     /* Still not found? -> EXIT  */
  31.     IF ~Show("P",rxport) THEN EXIT 10
  32.   END
  33. ADDRESS VALUE rxport
  34. Lock ON
  35. Prefs STORE
  36. SIGNAL ON ERROR
  37. /* END Init */
  38.  
  39. /* Initialize localized strings */
  40. CALL locale
  41. /* Final Writer started? */
  42. Get PORT
  43. fwport=RESULT
  44. IF fwport="" THEN
  45.   DO
  46.     Message nofw
  47.     CALL ERROR
  48.   END
  49. /* reqtools available? */
  50. Get REQTOOLS
  51. IF RESULT=0 THEN
  52.   DO
  53.     Message noreqtools
  54.     CALL ERROR
  55.   END
  56. /* Set default settings */
  57. Use MDEF
  58. title="FinalWrapper Tutorial 1.0 by NDY's"
  59. Set WINDOW title
  60.  
  61. /* Begin of tutorial */
  62. DO i=1 TO steps UNTIL ~ok
  63.   ok=message(t.i,b.i)
  64. END
  65. /* End of tutorial */
  66.  
  67. /* Exit */
  68. ERROR:
  69.   Set WINDOW
  70.   Prefs RESET
  71.   Lock OFF
  72.   EXIT
  73. RETURN
  74. locale:
  75.   IF Open(prefs,"ENV:Language","R") THEN
  76.     DO
  77.       language=ReadLn(prefs)
  78.       CALL Close(prefs)
  79.     END
  80.   ELSE
  81.     language="english"
  82.   SELECT
  83.   WHEN language="deutsch" THEN
  84.     DO
  85.       nofw="Bitte_Final_Writer_starten|und_nochmals_versuchen!"
  86.       noreqtools="Dieses_Makro_braucht_die folgenden|Libraries:||rexxreqtools.library|reqtools.library"
  87.       steps=15
  88.       DO i=1 TO steps
  89.         b.i="Hab ich gemacht, weiter geht's!|Abbruch"
  90.       END
  91.       t.1="Willkommen zur Einführung in FinalWrapper!||Sie werden die Grundzüge von Final-|Wrapper (in dieser Einleitung einfach|FW genannt) anhand eines einfachen|Beispiels kennenlernen.||In der Folge erscheinen einige Requester.|Alles was Sie tun müssen, ist den Anweisungen|zu folgen. Klicken Sie dann auf 'Weiter', um|fortzufahren.||Also dann... viel Glück!"
  92.       b.1="Einführung beginnen|Abbruch"
  93.       t.2="Zuerst probieren wir die Online-Hilfe aus!||Wählen Sie den Menupunkt 'Hilfe' im Menu von FW.|Vergessen Sie nicht, erst FWs Fenster zu aktivieren!||Es sollte dann ein AmigaGuide-Text über alle|Schalter und Menupunkte von FW angezeigt|werden.||Wenn ein Requester mit der Meldung 'Online-Hilfe|nicht verfügbar' erscheinen sollte, existiert ent-|weder kein deutscher Hilfstext, oder Sie haben die|'amigaguide.library' nicht installiert (für weitere|Details ziehen Sie bitte die Anleitung zu Rate!).|In diesem Fall können Sie die folgenden zwei|Requester ebenfalls überspringen."
  94.       t.3="Gut gemacht! Jetzt versuchen wir die Hilfe|für Schalter!||Bewegen Sie den Mauszeiger über einen|Schalter in FWs Fenster (wiederum nicht|vergessen, das Fenster zu aktivieren!) und|drücken Sie die Help-Taste.||Es wird dann ein kurzer Text über den Schalter|unter dem Mauszeiger erscheinen."
  95.       t.4="Und jetzt die Hilfe für das Menu...||Drücken Sie die rechte Maustaste,|und bewegen Sie den Mauszeiger|über irgend einen Menupunkt.|Drücken Sie dann wieder die Help-|Taste (bevor Sie die Maustaste|loslassen!).||Wen wundert's: Es wird ein Text über|den Menupunkt angezeigt."
  96.       t.5="Ok, beginnen wir unser erstes Projekt!||Wir wollen einen Text erzeugen, der|ungefähr folgendermassen aussieht:||               o  d  u            |           r                c        |        t                      i     |     n                          n  |    I                            g|    -                             -|    F                            r |     i                          e  |       n                     p     |          a               p        |             l  W  r  a           ||Dies ist eine einfache Aufgabe für FW!"
  97.       b.5="Ok, fangen wir an!|Abbruch"
  98.       t.6="Zuerst müssen wir das Oval definieren.|Wir tun dies, indem wir die Position und|die Grösse in die entsprechenden Felder|eingeben. (Wir könnten auch einfach ein|Oval mit Final Writer zeichnen).||Unser Oval soll 2 cm weg vom oberen|und vom linken Rand zu liegen kommen.|Geben Sie also 2 ins X und ins Y Feld ein.|Breite und Höhe sollen beide 5 cm sein,|geben Sie daher 5 in beide Felder ein.||(Sollten Sie Inch oder Pica verwenden,|müssen Sie ggf. die Werte entsprechend|anpassen.)"
  99.       t.7="Jetzt wird es Zeit für den Text!|Wir beginnen mit dem oberen Teil.||Geben Sie also '- Introducing -'|ins Text feld ein."
  100.       t.8="Der Text sollte um das halbe Oval herum|laufen. Daher brauchen wir einen Sektor von 180°.|Geben Sie also 180 in das Feld neben 'Nutze|Sektor' ein (dasjenige, das 360 anzeigt).|Der Schalter mit dem Häkchen wird automatisch|angewählt sobald Sie den Wert eingegeben|haben. Wenn dieser Schalter nicht angewählt|ist, wird die Option einfach ignoriert! Das|erlaubt Ihnen, Optionen, die Sie nicht mehr|benötigen, abzuschalten."
  101.       t.9="Lassen wir nun die erste Hälfte unseres|Textes zeichnen!||Klicken Sie auf Ok.||Das Fenster wird sogleich verkleinert,|so dass nur noch die Titelleiste sichtbar|bleibt. Sobald es wieder seine normale|Grösse annimmt, ist die Operation|beendet."
  102.       t.10="Fahren wir weiter mit den zweiten Teil.||Tippen Sie nun 'FinalWrapper' ins Textfeld."
  103.       t.11="Der Sektor müsste wieder 180° sein.|Wir machen ihn ein wenig kleiner, um|einen kleinen Leerraum einzufügen...|sagen wir 170°. Dies ist der neue Wert|für das Sektor-Feld.||Der Text soll im Gegenuhrzeigersinn|geschrieben werden, daher müssen|wir den Schalter auf 'Nutze Sektor:|Gegenuhrz.' umschalten."
  104.       t.12="Würden wir jetzt Ok anwählen, würde|der neue Text genau über demjenigen|erscheinen, den wir bereits erstellt haben.|Da wir ihn aber unten am Oval haben|möchten, muss er um 180° gedreht werden.||Dies kann mit dem Position-Schalter|erreichnt werden: Setzen Sie ihn auf|'Uhrzeigersinn' (oder 'Gegenuhrzeiger',|da ja 180° in beiden Richtungen dasselbe|ist) und geben Sie 180 als Wert ein."
  105.       t.13="Wir wollen noch eine andere Schrift und|Farbe für den zweiten Teil verwenden:|Wählen Sie den Menupunkt 'Textblock-|Einstellungen'. Es wird dann Final Writers|Textblock Requester angezeigt, in dem|Sie die neue Farbe und Schrift auswählen|können. Sollte der Requester nicht|auftauchen, klicken Sie vorher irgendwo|in Final Writer's Fenster, damit keine|Objekte mehr ausgewählt sind."
  106.       t.14="Klicken Sie erneut auf Ok und warten Sie,|bis das Ganze fertig ist.||Das Einzige, was uns zu tun bleibt, ist,|die beiden Objekte zu Gruppieren, was|ein späteres Herumschieben vereinfacht."
  107.       t.15="Das war's!||Jetzt, da Sie Ihre ersten Schritte mit|FinalWrapper hinter sich haben, können|Sie die Anleitung lesen (oder einfach|die Online-Hilfe verwenden), um die|anderen Effekte auszuprobieren.||Sollten Sie wirklich Probleme haben (was|ich nicht hoffe!), schreiben Sie mir einfach|(aber bitte erst, nachdem Sie die Anleitung|studiert haben!).||Meine Adresse ist im 'Über'-Requester zu|finden.||Viel Spass mit dem Makro!||                   ND"
  108.       b.15="Wiedersehen"
  109.     END
  110.   OTHERWISE
  111.     DO
  112.       nofw="Please_start_Final_Writer|and_try_again!"
  113.       noreqtools="This_macro_needs_the following|libraries_to_run:||rexxreqtools.library|reqtools.library"
  114.       steps=15
  115.       DO i=1 TO steps
  116.         b.i="I've done so, let's go on!|Abort"
  117.       END
  118.       t.1="Welcome to the FinalWrapper tutorial!||You'll be introduced to the basics of|FinalWrapper (in this tutorial simply|called FW) with an easy example.||There will be a series of requesters|appearing. All you have to do is to|follow the instructions in the requester|and then click on 'Let's go on!' to|continue.||Well then... good luck!"
  119.       b.1="Start tutorial|Abort"
  120.       t.2="First, let's try the online help!||Select the Help item in FW's menu. Don't forget|to activate FW's window first!||You should then be shown an AmigaGuide text|about all gadgets and menu items of FW.||If a requester appears saying 'Online help not|available', there's no help file for your language|or you don't have the amigaguide.library installed|(for further details consult the manual!). In this case|you can skip the following two requesters as well."
  121.       t.3="Well done! Now we try the gadget help!||Move the mouse pointer over a gadget|in FW's window (again don't forget to|activate the window first!) and press the|Help key.||You should then be shown a short text|about the gadget beneath the pointer."
  122.       t.4="And now try the menu help...||Press the right mouse button to view|the menu and move the mouse|pointer over anyone menu item.|Then press the Help key again (before|releasing the mouse button!).||Unsurprisingly, you'll be shown a text|about the menu item."
  123.       t.5="Ok, let's start with our first project!||We want to create a text that|looks about like that:||               o  d  u            |           r                c        |        t                      i     |     n                          n  |    I                            g|    -                             -|    F                            r |     i                          e  |       n                     p     |          a               p        |             l  W  r  a           ||This is an easy task for FW!"
  124.       b.5="Ok, let's begin!|Abort"
  125.       t.6="To begin with, we have to define the oval.|We'll do this by entering the position and|size into the apropriate gadgets. (We|could also draw an oval in FinalWriter.)||Our oval should be placed 2 cm away|from the top and the left of the page.|So enter 2 in the X and in the Y gadget.|The width and height should both be 5 cm,|therefore enter 5 in both gadgets.||(If you're using Inch or Pica, you probably|have to modify the suggested values.)"
  126.       t.7="Now we need the text!|We begin with the upper|part. So enter '- Introducing -'|into the text gadget."
  127.       t.8="The text should use about half the|oval. This means we need a 180° arc.|Therefore enter 180 into the gadget|besides 'Use arc' (the one that reads 360).|The check gadget will be automatically|selected when you have entered|the value. Unless it is selected, the|option will be completely ignored!|This allows you to switch off any option|you don't want anymore."
  128.       t.9="Now it's time to let the first half|of our text be drawn!||Click on the Ok gadget.||The window will be reduced in size,|only leaving the title bar visible.|When it changes to it's normal size|again, the drawing is finished."
  129.       t.10="Let's continue with the second part.||Now type 'FinalWrapper' into the|text gadget."
  130.       t.11="Again the arc would have to be 180°.|We make it a little smaller to add|some space between... let's say 170°.|This is the new value for the arc gadget.||The text has to be written anticlockwise,|so you have to change the gadget|to Use arc: Anticlockwise."
  131.       t.12="If we would click on Ok now, the new|text would be placed exactly over the|one we already created. But we want|it at the bottom of the oval. This means|it has to be turned around by 180°.||This can be done using the Begin gadget:|Set it to Clockwise (or Anticlockwise|as 180° in either direction is the same)|and enter 180 as value."
  132.       t.13="Now let's use another font and colour|for our second part: Select the menu|item 'Textblock preferences'. You'll be|shown Final Writer's textblock requester|where you can set the new colour etc.|If the requester doesn't show up,|first click somewhere in Final Writer's|window to unselect all objects."
  133.       t.14="Again click on Ok and wait till it's|finished.||The only thing we have to do now is|grouping the two objects together|so we can move them around easily."
  134.       t.15="That's it!||Now you have done your first steps with|FinalWrapper, you can read the manual|(or just use the online help!) to explore the|other effects.||If you really should have troubles (I don't|hope so!), just write me (but please do|consult the manual first!).||My address can be found in the About|requester.||Have fun using the macro!||                   ND"
  135.       b.15="Bye"
  136.     END
  137.   END
  138. RETURN
  139. message:
  140.   PARSE ARG msg,button
  141.   IF button="" THEN button="Ok"
  142.   p=Pos("|",msg)
  143.   DO WHILE p>0
  144.     msg=Left(msg,p-1)||"0A"x||SubStr(msg,p+1)
  145.     p=Pos("|",msg)
  146.   END
  147.   button=RTEZRequest(msg,button,title)
  148. RETURN button
  149.  
  150.